#!/usr/bin/perl
use File::Compare;
use File::Find;

find({ wanted => \&process_file, no_chdir => 1 }, @ARGV);

sub process_file {
    if (-f $_) {
            print "This is a file: $_\n";
                } else {
                        print "This is not file: $_\n";
                            }
                            }
